Código fuente de 'Borra objetos.asp'
<html>
<head>
<title>Borra objetos - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Borra objetos</font></b></p>
Función a la que se le pasa un objeto para cerrarlo (close), borrarlo (nothing)
o vaciarlo (empty). La función "clear" se encarga de averiguar de qué tipo es el objeto y
realiza la acción oportuna.<br>
<%
Public Sub clear(byref var_obj)
dim str_type
str_type = lcase(TypeName(var_obj))
if isobject(var_obj) Then
if instr(str_type,"recordset") > 0 or instr(str_type,"connection") > 0 Then
if var_obj.state = 1 Then var_obj.close
end if
set var_obj = nothing
else
var_obj = empty
end if
End Sub
%>
<p><i><%<br>
Public Sub clear(byref var_obj)<br>
dim str_type<br>
str_type = lcase(TypeName(var_obj))<br>
if isobject(var_obj) Then<br>
if instr(str_type,"recordset") > 0 or instr(str_type,"connection") > 0 Then<br>
if var_obj.state = 1 Then var_obj.close<br>
end if<br>
set var_obj = nothing<br>
else<br>
var_obj = empty<br>
end if<br>
End Sub<br>
%></i></p>
</body></html>